home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / GIF.PAS < prev    next >
Pascal/Delphi Source File  |  1995-10-10  |  1KB  |  39 lines
  1. program Gif;
  2. { GifUtil sample program
  3.     (c)Copyright 1993 Sean Wenzel
  4.     Users are given the right to freely use and distibute the source code at
  5.     will as long a credit is given where due }
  6.  
  7. uses GifUtil, CRT, Dos;
  8.  
  9. var
  10.     A: string;
  11.     TheGif: PGif;
  12.     Hours, Minutes, Seconds, Sec100: word;
  13.     H, M, S, S100: word;
  14. begin
  15.     Writeln('Sample program for using GIFUTIL.PAS unit');
  16.     Writeln('(c) Copyright 1993 Sean Wenzel');
  17.     Writeln('');
  18.  
  19.     if ParamCount <> 1 then
  20.     begin
  21.         Writeln('use: C:>gif <gifname>[.gif] to run...');
  22.         Exit;
  23.     end;
  24.     TheGif := New(PGif, Init(paramstr(1)));
  25.  
  26.     GetTime(Hours, Minutes, Seconds, Sec100);
  27.     TheGif^.Decode(True);
  28.     GetTime(H, M, S, S100);
  29.     Readln(A);
  30.     Dispose(TheGif, Done);
  31.  
  32.     Writeln('Start: ',Hours,':',Minutes,':',Seconds,':',Sec100);
  33.     Writeln(' Stop: ',H,':',M,':',S,':',S100);
  34.     while not(KeyPressed) do;
  35.  
  36.     writeln('"The Graphics Interchange Format(c) is the Copyright property of');
  37.     writeln('CompuServe Incorporated. GIF(sm) is a Service Mark property of ');
  38.     writeln('CompuServe Incorporated."');
  39. end.